﻿'######################################################################################################################################
'# CLASSE HORLOGE:
'#  - Affiche l'heure independement des autres classes
'######################################################################################################################################

Public Class Horloge
    Private _Parent As Plugin
    Private TIMER_Hologe As New System.Timers.Timer(10000)

    '######################################################################################################################################
    '# Constructeur
    '######################################################################################################################################
    Public Sub New(ByVal CLASS_Param1 As Plugin)
        _Parent = CLASS_Param1

        'Creation d'un evenement sur un timer pour l'horloge
        AddHandler TIMER_Hologe.Elapsed, AddressOf TIMER_Hologe_Declenche
        TIMER_Hologe.Start()
        'On rafraichi une premiere fois au demarrage de l'application
        HORLOGE_Rafraichir()
    End Sub
    '######################################################################################################################################

    '######################################################################################################################################
    '# Declenche toutes les 10 secondes
    '######################################################################################################################################
    Private Sub TIMER_Hologe_Declenche(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs)
        HORLOGE_Rafraichir()
    End Sub
    '######################################################################################################################################

    '######################################################################################################################################
    '# Rafraichir l'heure
    '######################################################################################################################################
    Private Sub HORLOGE_Rafraichir()
        MediaPortal.GUI.Library.Log.Debug("[SMC] Gestion_XML.vb >> Execution de HORLOGE_Rafraichir()", "")
        Dim STR_heure As String
        Dim STR_minutes As String

        STR_heure = DateTime.Now.Hour
        STR_minutes = DateTime.Now.Minute
        If STR_heure.Length = 1 Then STR_heure = "0" & STR_heure
        If STR_minutes.Length = 1 Then STR_minutes = "0" & STR_minutes
        _Parent.SKINLBL_Heure.Label = STR_heure & ":" & STR_minutes
    End Sub
    '######################################################################################################################################

End Class
